﻿Public Class frmXuatThongKeNha


    

 
    Private Sub XuấtBáoCáoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XuấtBáoCáoToolStripMenuItem.Click
        Dim rpt As Nha = New Nha()
        CrystalReportViewer1.ReportSource = rpt
    End Sub
End Class